Option Explicit
Sub F_Sample023()
   'Microsoft DAO 3.6 Object Library ]wޥζ
   'ոF_Data.mdb F_Qry01d
    Dim myDb       As DAO.Database
    Dim myQry      As DAO.QueryDef
    Dim myRst      As DAO.Recordset
    Dim myPrmAr    As Variant
    Dim myFileName As String
    Dim myQryName  As String
    Dim myKey      As String
    Dim i          As Long
    Worksheets.Add
    myFileName = "F_Data.mdb"			'ŪJɮ
    myQryName = "F_Qry01"        		'ŪJd
    myPrmAr = Array(60) 					'Ѽƪw
    Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
    Set myQry = myDb.QueryDefs(myQryName)
    With myQry
        If IsArray(myPrmAr) Then
            For i = 0 To UBound(myPrmAr)
                .Parameters(i) = myPrmAr(i)
            Next
        End If
        Set myRst = .OpenRecordset()
    End With
    If myRst.EOF Then
        MsgBox "SŦX󪺸"
    Else
        With myRst
           'W
            For i = 1 To .Fields.Count
                Cells(1, i).Value = .Fields(i - 1).Name
            Next
           'O
            Range("A2").CopyFromRecordset myRst, 1
            .Close
        End With
    End If
    myDb.Close
    Set myRst = Nothing					'
    Set myQry = Nothing
    Set myDb = Nothing
End Sub
